0PI010 
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000(^00 21^1^b 000007 

000001 270506 000010 

000002 340706 000010 

000003 360606 000007 

000004 321102 000000 



00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
004B0 
00490 



DATA BLOCKS 



EXTERN SETIOD, ADVBFE. ADVBFF, JBTADR, CLRBYT , STTYBl 
EXTERN SCNCHN, COMCNT, SCNSAV, SCNRET, STOPl , DEVLST, TTYTAB 
INTERN SCNINI 



;ttyptr=dev0ad+1 

;ttyctr=ttyptr+1 

;tty8Uf=ttyctr+i 

PION=200 ;turn PI 

PIOFF=400 

;SCNDDB 

;STTYBF7 ;SIZE OF 

CHREC=TEM 

VPOS=lTEM 

HP0S=VP0S+1 

DOB=OEVDAT 

LINE=TAC1 

SYNC=40000 

DETH=10000 

NIO=20000 

TOUT=IO 

NCERR=IOBKTL 

DCHAR=177 

ECHOF=IODTER 

TPMON=1000 

SP=2000 

ODTM=100000 

T35=4000 JTELETYPE 

USRB=100 ;turn off 



ON BIT 

;TURN PI OFF BIT 

JNUMBER OF DEVICE 
TELETYPE BUFFER 

;AC FOR CHARACTER 

JVERTICAL POSITION OF TELETYPE 
HORIZONTAL POS. 

JAC THAT HOLDS SCANNER LINE NUMBER 

;l WHEN A BUFFER IS READY TO TRANSFER 

;l IF TTY DETACHED AND OUTPUT WAITING 

JSTOP ALL 10 

;0UTPUT IN PROGRESS 

.•CHARACTERS LOST ON TYPE IN 

;OELETE CHARACTER 

;ECH0 FAILURE OCCURED 

no IS FROM MONITOR 

;SPECIAL TELETYPE CHAR. IS BEING INTERPRETED 

;DDT MODE 

HAS TAB,FF,VT,ETC. MECHANISM 

TPMON WHEN OUTPUT IS FINISHED 

;RT half MONITOR lOS WORD, REMAIN IN MONITOR MODE 



USRBC=20000 

INTERNAL SCN INT, CTY I NT, TTYUSR, TTYURC 

ENTRY TTYDSP 

EXTERN TSCNLN,TC0NLN,MTTYLN,CP0PJ1 

EXTERN CPOPJ 

EXTERN FSNCHN.SCNCHL,OUT,PUUOAC,PJOBN,PUNIT,PIOMOD 

INTERNAL ODTGT , DOTRL , DDT IN, DDTOUT, TTYFND, TTYSTR, TTYFNU 

EXTERNAL WA I Tl , WSYNC , CLRBYT, JOB , CLDS, CLEN, TTYBFE. TTYBMl 

EXTERNAL UX I T , ADRCK , TTYSAV, DEVPHY. DEVOPR 

EXTERNAL TTYCTR, TTYPTR, TTYBUF, TTYLST , MLTTYL, SETRUN, STTYBF , TTY0DB 



PHPOS: 
PVPOS: 
PLASTC: 
PSCHAR: 

TPCJOBN: 



POINT 7,DEVIAD(DEVDAT).12 
POINT 5,DEV0AD(DEVDAT),12 
POINT 7,DEV0A0(DEVDAT),7 
POINT 6,DEVIAD(DEVDAT),5 

POINT 9,TTYTAB(LINE),9 



;POINTER HORIZONTAL POSITION 

;POINTER VERTICAL POSITION 

JPOINTER TO LAST CHARACTER OU 

{POINTER TO tc OR to 

;CONSOLE NUMBER FOR TTY 
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00500 








00510 


000005 


201040 


100000 


00520 


000006 


712200 


000000 


00530 


000007 


730200 


004010 


00540 


00001.0 


730300 


001000 


00550 


000011 


730200 


004000 


00560 


000012 


730300 


000010 


00570 


000013 


730440 


000002 


00580 


000014 


367040 


000010' 


00590 


00 015 


201040 


000000 


00600 


000016 


712201 


003600 


00610 


000017 


730200 


000000 


00620 


000020 


205040 


000000 


00630 


000021 


205240 


010000 


00640 


000022 


205000 


001004 


00650 


000023 


201300 


000000 


00660 


000024 


616246 


000004 


00670 


000025 


402006 


000000 


00680 


000026 


202006 


000002 


00690 


000027 


402006 


000000 


00700 


000030 


412246 


000004 


00710 


000031 


554306 


000003 


00720 


000032 


253040 


000024' 


00730 


000033 


205040 


000000 


00740 


000034 


205100 


010000 


00750 


000035 


332301 


000004 • 


00760 


000036 


436106 


000004 


00770 


000037 


253040 


000035' 


00780 


000040 


263140 


000000 


00790 



SCNINI 



SCNl 



SCN2: 



;SHUT DOWN CONSOLE TTY 
{RELEASE XMITTER, RECEIVER 



MOVEI TAC, 100000 

CONO TTY,0 

CONO DCSA,4010 

C0NS2 DCSA. 1000 

CONO DCSA, 4000 

CONSZ DCSA, 10 

DATAI DCSB, TACl 

SOJG TAC, .-4 

MOVEI TACSCNCHN 

CONO TTY,3600(TAC) ;CLEAR TTY, ASSIGN CHANNEL 

CONO DCSA.FSNCHN JASSJGN INTERRUPT CHANNELS 

MOVSI TACMLTTYL JNO. OF TTY DEV. DATA BLOCKS 

MOVSI DAT,TTYUSE ;TTY DDB IN USE BIT 

MOVSI lOS.TPMON+IOFST ;VIRGIN STATUS 

MOVEI DDB.TTYLST JFIRST TTY DDB ADDRESS 

TDNN DAT,DEVMOD(DDB) MS THIS TTY DDB IN USE? 

SETZM DEVNAM(DDB) ;N0, SET NAME TO 

MOVEM lOS.DEVIOS(DDB) 

SETZM TTYSAV(ODB) ;CLEAR USER MODE TTY STATUS WORD 

ANDCAM DAT.DEVMOD(DDB) 

HLRZ DDB,OEVSER(DDB) 

AOBJN TAC. SCNl 

MOVSI TACMTTYLN ;SET 

MOVSI TACl.TTYUSE 

SKIPE DDB,TTYTAB(TAC) 

lORM TAC1,DEVM0D(DDB) 

AOBJN TAC.SCN2 

POPJ PDP, 



;CLEAR USE BIT 
JGET NEXT TTY DDB 

DDB USE BITS FROM TRANSLATOR TAiLE 
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000041 
000042 
000043 
000044 
000045 



000046 
000047 
000050 
000051 
000052 
000053 
000054 



200040 
412046 
402006 
402006 
254000 



001144' 

000004 

000000 

000005 

000052' 



200046 000004 
627040 020000 
254000 000041' 
202046 000004 
135100 000000 
402002 000035' 
263140 000000 



000055 000000 000000 



000056 334040 001145' 

000057 205040 000100 

000060 436046 000002 

000061 263140 000000 



000062 205040 000004 

000063 202046 000027' 

000064 254000 000057' 



00800 

00810 

00820 

00830 

00840 

00850 

00860 

00870 

00880 

00890 

00900 

00910 

00920 

00930 

00940 

00950 

00960 

00970 

00980 

00990 

01000 

01010 

01020 

01030 

01040 

01050 

01060 

01070 

01080 

01090 

01100 

01110 

01120 

01130 

01140 

01150 

01160 

01170 

01180 

01190 

01200 



;R0UTINE to return TTY to virgin STATE 
JCALL: move DOB, ADDRESS OF DEVICE DATA 
; PUSHJ PDP.TTYKIL 



BLOCK 



INTERNAL TTYKIL 

ttykil: move TACCXWD TTYUSE+TTYATCASSCON+ASSPRQ] 

ANDCAM TAC,DEVM0D(DEVDAT) ;CLEAR DDB USE BIT 
SETZM DEVNAM(DEVDAT) ;CLEAR PHYSICAL NAME 

SET2M OEVLOG(OEVDAT) ;CLEAR LOGICAL NAME 

JRST TTYDTl 

;routtne to detach tty from job 

;CALL: move DEVDAT, ADDRESS OF TTY DDB TO BE DETACHED 
INTERNAL TTYDET 



TTYDET: 



TTYDTl 



CCHAR: 

{CONTROL 

.CONTROL 

TTYURC: 
TTYUSR: 



MOVE TAC,DEVMOD(DEVDAT) 
TLZN TACTTYATC ;WAS 
JRST TTYKIL ;N0, 

MOVEM TAC,DEVMOD(DEVDAT) 
LDB LINE.PUNIT 
SETZM TTYTAB(LINE) 
POPJ POP. 



JHOLDS CHARACTER FOR CONSOLE 

C - GO BACK TO MONITOR 
- SUPPRESS OUTPUT 



TTY ATTACHED? 

SO RETURN DDB TO POOL 

;YES, JUST CLEAR ATTACH BIT 



TELETYPE 



SKIPA TACCXWD USRB,USRBC3 
MOVSI TAC.USRB ;CAUSE 
lORM TAC,DEVIOS(DEVDAT) 
POPJ POP, JOUTPUT FINISHES 



;START JOB BUT REMAIN 
TTY TO GO INTO 

;USER MODE WHEN 



IN MONI 



INTERNAL TTYSET 

TTYSET: MOVSI TACIOFST {INITIALIZE USER TTY lOS WORD 
MOVEM TAC,TTYSAV(DEVDAT) ;FOR START COMMAND 
JRST TTYUSR 
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000065 
000066 
000067 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000110 
000111 
000112 
000113 
000114 

000115 
000116 



135100 
201300 
334000 

554306 
322300 
135040 
500046 
607040 
254000 
306201 
607040 
254000 
603040 
263140 
261140 

200302 
200046 
260140 
262140 
137200 
137200 
205040 
260140 
254000 



000052' 

000023' 

000000 

000003 

000315' 

000000 

000004 

000010 

000115' 

000000 

010000 

000070' 

020000 

000000 

000006 

000053' 

000004 

000046' 

000006 

000004 ' 

000072' 

020000 

000247' 

000411 ' 



200302 000104' 
254000 000110' 



01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
01530 
01540 
01550 
01560 
01570 
01580 



ROUTINE TO ATTACH TTY TO A JOB 

call: move DEVOAT, ADDRESS OF TTY DEVICE DATA BLOCK 

MOVE ITEM, JOB NUMBER 

PUSHJ PDP.TTYATT 

ERROR ;DEVDAT=DDB ADR OF OTHER TTY 

;iF ANOTHER ALREADY jS ATTACHED. 

OK RETURN JDEVDAT, DAT AND TRANSLATOR TABLE SET 



INTERNAL TTYATT 



TTYaTT: 



TTYAT2: 



TTYAT3 



TTYAT4: 



LDB L 

MOVEI 

SKIPA 

HLRZ 

JUMPE 

LDB T 

HLL T 

TLNN 

JRST 

CAIN 

TLNN 

JRST 

TLNE 

POPJ 

PUSH 

MOVE 

MOVE 

PUSHJ 

POP P 

DPB I 

DPB I 

MOVSI 

PUSHJ 

JRST 

MOVE 
JRST 



ine.punit 
devdat,ttylst 



;LINE NO. OF THIS TTY 

JSEARCH for DOB THAT IS ATTACHED 



DEVDA 
DEVD 
AC.PJ 
ACDE 
TACD 
TTYAT 
ITEM, 
TACT 
TTYAT 
TACT 
POP, 
PDP,D 
DEVDA 
TACD 
POP, 
DP.DE 
TEM.T 
TEM.P 
TAC 
POP, 
SCNIN 



T.DFVSER 

AT, TTYAT 

OBN 

VMOD(DEV 

VTTY 

4 

(TAC) 

TYUSE 

2 

TYATC 

EVDAT 

T,TTYTAB 

EVMOD(DE 

TTYDET 

VDAT 

PCJOBN 

JOBN 

TTYATC 

TTYDAT 



BITS 



(DEVDAT) 
4 

;J0B NUMBER 
DAT) {ATTACH AND USE 

MS THIS STILL A TTY DDB? 

;N0, THIS MUST BE IJOB 

;J0B NUMBER THE ONE TO ATTACH? 

;YES, IS IT THE DETACHED ONE? 

;N0, KEEP LOOKING 

MS SOME TTY ALREADY ATTACHED? 

;YES, error RETURN WITH DEVDAT 

;SAVE NEW DDB ADDRESS 
(LINE) 
VDAT) 

;DETACH DDB FROM TTY 



SET 



JSTORE ATTACHED JOB NO. 
;SET JOB NUMBER 
JSET ATTACHED BIT 
;SETUP OUTPUT BYTE 
;G0 INITIALIZE DDB 



DEVDAT, TTYTAB(LINE) 

TTYAT3 



{RESTORE OLD DDB ADDRES 
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000117 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 



000130 
000131 
000132 



205100 
331002 
253100 
327100 
205300 
413302 
205240 
271246 
200040 



000033' 

000115' 

000120' 

000000 

400000 

000120' 

440700 

000000 

000005 



135100 000065' 
135200 000004' 
254000 000000 



01590 
01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
01680 
01690 
01700 
01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 
01800 
01810 
01820 
01830 
01840 
01850 
01860 
01870 
01880 
01890 



;routine to setup ac devdat to address of tty which has typed a comma 



;ac DAT to byte 
;ac Tag to byte 
;ac item to job 
;call: pushj 



POINTER TO 
POINTER TO 
NUMBER TTY 
PDP.TTYCOM 



OUTPUT BUFFER FOR COMMAND MESSAGES 
COMMAND STRING 
IS ATTACHED TO 



NONE FOUND 
ACS SETUP 



INTERNAL TTYCOM 



TTYCOM: 



MOVSI 
SKIPL 
AOBJN 
JUMPG 
MOVSI 
ANDCAB 



LINE.MTTYLN 
TTYTAB(LINE) 
LINE, .-1 
LINE.CPOPJ 
DEVDAT, 400000 
DEVDAT. TTYTABCLINE) 



MOVSI DAT, 440700 

ADD! DAT,TTYBUF(DEVDAT) 

MOVE TACDAT 

JFALL INTO TTYJOB 

;R0UTINE TO RETURN IN AC ITEM JOB NUMBER WHICH TTY IS ATTACHED TO 
;CALL: move DEVDAT, ADDRESS OF TTY DEVICE DATA BLOCK 

INTERNAL TTYJOB 

TTYJOB: LDB LINE, PUNIT 
LDB ITEM,TPCJ0BN 
JRST CPOPJl 
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01900 








01910 








01920 








01930 








01940 








01950 








01960 








01970 


Pi00l33 


260140 


000231' 


01980 


000134 


200006 


000002 


01990 


000135 


607000 


10000« 


02000 


000136 


607000 


00002(71 


02010 


000137 


254000 


000141 ' 


02020 
02030 


000140 


260140 


0910000 


02040 


000141 


661000 


100000 


02050 


000142 


202006 


000002 


02060 


000143 


254000 


000000 


02070 
02080 
02090 
02100 
02110 


000144 


260140 


000231' 


02120 


000145 


200006 


000002 


02130 


000146 


603000 


000020 


02140 


000147 


260140 


000140' 


02150 


000150 


205000 


140000 


02160 


000151 


412006 


000002 


02170 


000152 


254000 


000143' 


02180 



;teletype scanner uuo routines 

;E0R DDT 



;dotgt waits for output to complete then puts 
;teletype into ddt mode 



ddtgt: pushj pdp.ttysri 

move i0s,devi0s(dev0at) 

TLNN lOS.DDTM 

TLNN IOS,IO 

JRST DDTGT2 
; PUSHJ POP, OUT 

PUSHJ PDP.WAITl 
DDTGT2: TLO lOS.DDTM 

MOVEM lOS.DEVIOS(DEVDAT) 

JRST UXIT 

;RELEASE TELETYPE FROM DDT MODE 
;MAKE SURE OUTPUT IS FINISHED FIRST 

DDTRL: PUSHJ PDP,TTYSR1 

MOVE IOS,DEVIOS(DEVDAT) 
TLNE IDS, 10 
PUSHJ PDP.WAITl 
MOVSI IOS,DDTM+SYNC 
ANDCAM I0S,DEVI0S(DEVDAT) 
JRST UXIT 



;FIND DEVICE DATA BLOCK 



JOUTPUT IN PROGRESS? 

;no 

;MAKE SURE OUTPUT STARTED 
;WAIT FOR OUTPUT TO FINISH 
;SET DDT MODE BIT 



;FIND DEVICE DATA BLOCK 



;OUTPUT IN 
;YES, WAIT 



PROGRESS? 



;TURN OFF DDT BIT 
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000153 260140 000231' 



000154 
000155 
000156 
000157 
000160 
000161 
000162 
000163 
000164 



200006 
603000 
260140 
200006 
603000 
254000 
201000 
436006 
260140 



000002 

000020 

000147' 

000002 

000040 

000166' 

010000 

000002 

000000 



000165 254000 000157' 

000166 205040 120004 

000167 436046 000002 

000170 200046 000000 

000171 260140 000000 

000172 275046 000000 

000173 135100 000000 

000174 271107 000000 

000175 200102 000000 

000176 271107 000000 

000177 505106 000126' 

000200 271042 000000 

000201 251101 000000 

000202 402001 000001 

000203 205040 020040 

000204 412046 000002 

000205 254000 000152' 



02190 

02200 

02210 

02220 

02230 

02240 

02250 

02260 

02270 

02280 

02290 

02300 

02310 

02320 

02330 

02340 

02350 

02360 

02370 

02380 

02390 

02400 

02410 

02420 

02430 

02440 

02450 

02460 

02470 

02480 

02490 

02500 

02510 

02520 

02530 



; INPUT TO DDT 

;CALL ACCSIXBIT /DDTIN/3 AC CONTAINS POINTER TO BUFFER AREA 

.-BUFFER AREA MUST BE 21 WORDS LONG 



DDTIN: PUSHJ PDP.TTYSRl 

MOVE IOS,DEVIOS(DEVDAT) 

TLNE IOS,IO 

PUSHJ PDP.WAITl 
DDTIN2: MOVE I OS, DEV I OS ( DEVDAT ) 

TLNE IOS,IOEND 

JRST DDTIN3 

MOVEI lOS.IOACT 

lORM lOS.DEVlOSCDDB) 

PUSHJ PDP.WSYNC 

JRST DDTIN2 

D0TIN3: MOVSI TAC , N 10+ I OFST+DOTM 
lORM TAC,DEVI0S(DEVDAT) 
MOVE TAC,TTYPTR(DEVDAT) 
PUSHJ PDP.CLRBYT 
SUB! TACTTYBMKDEVDAT) 
LDB TACl.PUUOAC ;PICK 
ADDI TAC1,(PR0G) 
MOVE TACl, (TACl) 
ADDI TACl. (PROG) 
HRLI TAC1,TTYBUF(DEVDAT) 
ADDI TAC,(TAC1) 
BLT TACl. (TAC) 
CLEARM KTAC) 
MOVSI TAC.NIO+IOEND 
ANDCAM TAC.DEVIOSCOEVDAT) 
JRST UXIT 



;SET UP DEVDAT 

;OUTPUT IN PROGRESS 
;YES, WAIT 

;BUFFER READY? 
;YES 



;N0, WAIT 



;STOP ALL 10 



REMAINING 
WORDS 



UP 



;CLEAR OUT 

;number OF 

AC NUMBER 
;FIND REAL ADDRESS 
;PICK UP POINTER 
JFIND REAL ADDRESS 



BYTES 



OF BUFFER 



;TRANSFER MONITOR BUFFER TO U 
;MAKE SURE THERE ARE SOME NUL 
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000206 260140 000231' 

000207 200006 000002 

000210 603000 000020 

000211 260140 000156' 

000212 200000 001146' 

000213 437006 000002 

000214 135040 000173' 

000215 505040 000011 

000216 540060 000001 

000217 505060 000001 

000220 541046 000177' 

000221 552046 000000 

000222 200100 000001 

000223 251042 000020 

000224 505100 440700 

000225 202106 000170' 

000226 621000 020004 

000227 260140 000303' 
000230 254000 000205' 



02540 
02550 
02560 
02570 
02580 
02590 
02600 
02610 
02620 

02630 
02640 
02650 
02660 
02670 
02680 
02690 
02700 
02710 
02720 
02730 
02740 
02750 
02760 
02770 
02780 



OUTPUT FROM DDT 
CALL ACCSIXBIT 



/DDTOUT/] 



AC HAS POINTER TO DDT OUTPUT BUFFER 



DDTOUT: PUSHJ PDP.TTYSRl 

MOVE IOS,DEVIOS(DEVDAT) 

TLNE IDS, 10 

PUSHJ PDP.WAITl 

MOVE IOS,CXWD NIO+TOUT+DDTM, I0ACT3 

lORB I0S,DEVIOS(DEVDAT) 

LDB TACPUUOAC ;PICK 

HRLI TACJOAT ;CALC 

HRR TAC.@TAC ;PICK 

HRLI TAC^TAC ;CALC 

HRRI TAC,TTYBUF(DEVDAT) 

HRRZM TAC.TTYCTR(DDB) 

MOVE TAC1,TAC 

BLT TAC,20(TAC1) 

HRLI TACl. 440700 

MOVEM TAC1,TTYPTR(DEVDAT) 
TLZ lOS.NIO+IOFST 
PUSHJ PDP,TTYOU0 
JRST UXIT 



;OUTPUT IN 
;YES, WAIT 



PROGRESS? 



UP AC NUMBER 
REAL ADDRESS 
UP AC 
REAL ADDRESS 



OF AC 



OF DDT BUF 



A SUITABLY LARGE NUMBER 
MOVE DDT BUFFER TO MONITOR 
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^0(^231 
000232 
000233 
000234 
000235 
000236 
000237 
000240 
000241 
000242 



000243 
000244 

000245 
000246 
000247 
000250 
000251 

000252 
000253 
000254 
000255 
000256 
000257 
000260 
000261 
000262 
000263 
000264 
000265 
000266 
000267 
000270 



200200 
205100 
550302 
322300 
135040 
306044 
263140 
253100 
205040 
254000 



000000 

000117' 

000124' 

000240' 

000004 • 

000000 

000000 

000233' 

576062 

000000 



200200 000231' 
260140 000232' 

205040 020000 
436046 000002 
201246 000220' 
505240 440700 
263140 000000 



200040 
260140 
275046 
405040 
221040 
202046 
201046 
505040 
202046 
200006 
434000 
420000 
260140 
263140 
254000 



000005 

000171' 

000172' 

777777 

000005 

000221' 

000247' 

440700 

000225' 

000002 

001147' 

001150' 

000771' 

000000 

000311' 



263140 000000 
254000 000000 
254000 000301' 
630000 001151' 
660000 010000 
623000 000002 
000277 661000 000004 



000271 
000272 
000273 
000274 
000275 
000276 



02790 

02800 

02810 

02820 

02830 

02840 

02850 

02860 

02870 

02880 

02890 

02900 

02910 

02920 

02930 

02940 

02950 

02960 

02970 

02980 

02990 

03000 

03010 

03020 

03030 

03040 

03050 

03060 

03070 

03080 

03090 

03100 

03110 

03120 

03130 

03140 

03150 

03160 

03170 

03180 

03190 

03200 

03210 

03220 

03230 

03240 

03250 

03260 

03270 

03280 

03290 

03300 

03310 

03320 

03330 

03340 

03350 



TTYSRl: MOVE ITEM, JOB 
TTYSRC: MOVSI LINE,MTTYLN 

HRRZ DEVDAT.TTYTABdINE) 

JUMPE DEVDAT,TTYF0 

LD8 TAC.TPCJOBN 

CAIN Tag, ( ITEM) 

popj POP, ;founo 

TTYF0: AOBJN L I NE , TTYSRC+1 
MOVSI TAG, 576062 
JRST DEVPHY 



;SIXBIT 
;SEARCH 



/OPR/ 
PHYSICAL 



DEVICE NAMES 



ROUTINE 
call: 



;AND RETURN OPERATOR TTY, 



TO FIND TTY FOR A JOB 
MOVE ITEM. JOB NUMBER 
PUSHJ POP, TTYFND 
ERROR RETURN 

RETURN WITH DEVDAT SET TO ADR OF DOB 
AND DAT SET TO BYTE POINTER TO MONITOR 



OUTPUT BUFFER 



TTYFNU: 
TTYFNO: 



TTYDAT: 



TTYSTR: 



MOVE ITEM, JOB 

PUSHJ POP, TTYSRC 

PUSHJ PDP.WSYNC 

MOVSI TAC.NIO 

lORM TAC,DEVI0S(DEVDAT) 

MOVEI DAT,TTYBUF(DEVDAT) 

HRLI DAT, 440700 

POPJ POP, 



;CALLED BY PUSHJ POP, TTYFND 
;JOB NUMBER IN TACl 
{SETUP OUTPUT BYTE POINTER 



MOVE TAG, DAT 

PUSHJ PDP.CLR8YT 

SUBI TACTTYBMKDEVDAT) 

ANDI TAC,-1 

IHULI TAG. 5 

MOVEM TAC,TTYCTR(DEVDAT) 

MOVEI TAC,TTY8UF(DEVDAT) 

HRLI TAG, 440700 

MOVEM TAC,TTYPTR(DEVDAT) 

MOVE I0S,DEVI0S{DEVDAT) 

lOR IOS,CXWD TOUT+TPMON, lOACTD 

ANDGM IOS,CXWD N 10+ lOFST, IODTER+ lOBKTL] 

PUSHJ PDP,GCHAR 

POPJ POP, .'NOTHING TO TYPE 

JRST TTY0U2 ;START OUTPUT 



IDISPATCH TABLE 



TTYDSP: 



POPJ POP, 
JRST OUT 
JRST TTYOUT 
TD2 lOS.CXWD 



{RELEASE 
{CLOSE 

{OUTPUT 
TPMON.ECHOF+NCERRD 



{INPUT 



TRO lOS.IOACT 
TLZE IDS, lOBFG 
TLO lOS, lOFST 



000300 254000 001133' 



000301 
000302 
000303 
000304 
000305 
000306 
000307 
000310 
000311 
000312 
000313 
000314 
000315 
000316 
000317 
000320 
000321 
000322 
000323 
000324 

000325 
000326 
000327 
000330 
000331 

000332 
000333 
000334 
000335 
000336 
000337 
000340 
000341 
000342 
000343 
000344 
000345 

000346 
000347 
000350 
000351 
000352 
000353 
000354 

000355 
000356 
000357 
000360 
000361 
000362 
000363 
000364 
000365 



670000 
630000 
135240 

135200 
260140 
263140 
137240 
137200 
135100 
700200 
306100 
254000 
730200 
730602 
730140 
730200 
137400 
700200 
202006 
263140 



001152' 

001151 ' 

000000' 

000001' 

000771' 

000000 

000000' 

000001 ' 

000130' 

000000 

000000 

000325' 

000000 

000000 

000010 

000017 ' 

000002' 

000000 

00000? 
000000 



712200 000000 

712140 000010 

202400 000055' 

712200 000015' 

254000 000322' 



712340 
254000 
712340 
254000 
202040 
712040 
405040 
306040 
254000 
712140 
250040 
254520 



000050 

000333' 

000040 

000347' 

000055 ' 

000001 

000177 

000177 

000346' 

000001 

000055' 

000000 



250040 000055' 

264000 000000 

201400 000330' 

712210 000200 

200400 000055' 

201100 000313' 

254000 000364' 



730340 
254000 
264000 
730340 
254000 
730640 
730440 
405400 
303100 



001010 

000356' 

000347' 

000010 

000440' 

000002 

000010 

000177 

000353' 



03360 
03370 
03380 
03390 
03400 
03410 
03420 
03430 
03440 
03450 
03460 
03470 
03480 
03490 
03500 
03510 
03520 
03530 
03540 
03550 
03560 
03570 
03580 
03590 
03600 
03610 
03620 
03630 
03640 
03650 
03660 
03670 
03660 
03690 
03700 
03710 
03720 
03730 
03740 
03750 
03760 
03770 
03780 
03790 
03800 
03810 
03820 
03830 
03840 
03850 
03860 
03870 
03880 
03890 
03900 
03910 
03920 
03930 
03940 
03950 



TTYOUT: 
TTYOU0: 



TTY0U2: 



TTYOUi: 



CTYOUT: 



CTYINT: 



CTYRUB: 
CTYOUi: 



SCNINT: 



JRST MISl 



TOO lOS.CXWD TOUT+IOFST, I0ACT3 

TDZ IOS,CXWO TPMON,ECHOF+NCERR] 

LDB HPOS,PHPOS 

LDB VPOS.PVPOS 

PUSHJ PDP. GCHAR 

POPJ POP, 

DPB HPOS.PHPOS 

DPS VPOS,PVPOS 

LDB LINE.PUNIT 

CONO CLDS 

LINE.TCOMLN 

CTYOUT 

DCSa,0 

DCSB, (LINE) 
DCSA, CHREC 



DISABLE CLOCK 



CAIN 

JRST 

CONO 

CONO 

DATAO 

CONO DCSA,FSNCHN 

DPB CHREC, PLASTC 

CONO CLEN 

MOVEM IOS,DEVIOS(DEVOAT) 

POPJ PDP, 



;DISABLE SCANNER 



;RE-ENA8LE CLOCK 



TCOMM: 



CONO TTY,0 
DATAO TTY, CHREC 
MOVEM CHREC, CCHAR 
CONO TTY,SCNCHN 
JRST TTYOUI 

CONSO TTY, 50 
JRST . 

CONSO TTY, 40 
JRST CTYOUI 
MOVEM TAC, CCHAR 
DATAI TTY. TAC 
ANDI TAC, 177 
CAIN TAC, 177 
JRST CTYRUB 
DATAO TTY, TAC 
EXCH TAC, CCHAR 
JRST 12.@'SCNCHL 

EXCH TAC, CCHAR 
JSR SCNSAV 
MOVEI CHREC, SCNCHN 
CONO TTY,200{CHREC) 
MOVE CHREC, CCHAR 
MOVEI LINE,TCONLN 
JRST TCOMM 

CONSO DCSA, 1010 
JRST . 
JSR SCNSAV 
CONSO DCSA, 10 
JRST SCNINl 
CONI DCSB, LINE 
DATAI DCSB, CHREC 
ANDI CHREC, 177 
CAILE LINE,TCONLN 



;DISABLE TTY 



;re-enable 



;dont echo rubout 



; IS A rubout 
;not, SO echo 



;dismiss interrupt 



.'RECEIVER FLAG? 
;N0,XMITTER FLAG 



;CTY LINE OR less? 



PI00366 


254000 


000450' 


03960 


000367 


332302 


000233' 


03970 


?imZ19 


254000 


000462' 


03980 


000371 


260140 


000400 ' 


03990 


000372 


254000 


000450' 


04000 


000373 


403240 


000004 


04010 


000374 


730300 


000700 


04020 


000375 


306100 


000365' 


04030 


000376 


254000 


000575' 


04040 


000377 


254000 


000511' 


04050 



JRST TYPX 

SKIPE DOB.TTYTABCLINE) 

JRST INUSE 

PUSHJ PDP.DDBSRC 

JRST TYPX 

CLEARS HPOS.VPOS 

CONSZ DCSA,700 

CAIN LINE.TCONLN 

JRST INJEST 

JRST TYPl 



;no 

JDATA BLOCK ASSIGNED? 

JYES 
{SEARCH FOR FREE TTY DEV. DATA BLOCK 
;N0NE found, TYPE X 
;ASSUME TTY IS AT BEGIN OF FORM 

;full duplex? 

;CTY? 

;N0, SWALLOW CHAR 
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04060 










04070 


IROUTINE 








04080 


'CALL: 








04090 










04100 










04110 










04120 




000400 


205000 


000020* 


04130 DDBSRC: 


000401 


201300 


000066 ' 


04140 




000402 


334040 


001144 ' 


04150 




000403 


554306 


000003 


04160 




000404 


612046 


000004 


04170 




000405 


253000 


000403 ' 


04180 




000406 


325000 


000122' 


04190 




000407 


200000 


001153' 


04200 




000410 


200040 


001154' 


04210 
04220 

04230 ; 
04240 


INITIAL 


000411 


436046 


000004 


04250 SCNIN: 


000412 


137100 


000311' 


04260 




000413 


205040 


646471 


04270 




000414 


202046 


000000 


04280 




000415 


200040 


001155' 


04290 




000416 


261140 


000002 


04300 




000417 


606100 


000070 


04310 




000420 


254000 


000425' 


04320 




000421 


241100 


777775 


04330 




000422 


271100 


000020 


04340 




000423 


136100 


000001 


04350 




000424 


242100 


000020 


04360 




000425 


271100 


000020 


04370 SCNIN0: 


000426 


136100 


000001 


04380 




000427 


262140 


000002 


04390 
04400 




000430 


542302 


000367' 


04410 




000431 


205040 


436471 


04420 




000432 


306100 


000375' 


04430 




000433 


202046 


000000 


04440 




000434 


200046 


000000 


04450 




000435 


336000 


000000 


04460 




000436 


202040 


000435' 


04470 




000437 


254000 


000132' 


04480 
04490 
04500 




000440 


730040 


000002 


04510 SCNINi: 


000441 


201040 


000320' 


04520 




000442 


730201 


004000 


04530 




000443 


332302 


000430' 


04540 




000444 


301100 


000432' 


04550 




000445 


254000 


000000 


04560 




000446 


135400 


000002' 


04570 




000447 


254000 


000471' 


04580 
04590 





TO SEARCH EOR FREE TTY DEV DATA BLOCK 
MOVE LINE. TTY LINE NO 
PUSHJ POP, DDBSRC 
NONE FOUND 
RETURN DEVDAT, LINE SET 

MOVSI lOS.MLTTYL ;N0. OF TTY ODB 

MOVEI DEVDAT, TTYLST ;A0DRESS OF FIRST DDB 

SKIPA TAC.CXWD TTYUSE+TTYATC , ASSPRG+ASSCON 3 

HLRZ DEVDAT, OFVSER(DEVOAT) 

TONE TAC,DEVMOD(DFVDAT) ;USE, ATTACH, AND BOTH ASSIGN 

AOBJN I0S,.-2 

JUMPGE lOS.CPOPJ ;D0B FOUND? 

MOVE IOS,CXWD TPM0N+I0FST,I0ACT3 

MOVE TACCXWD TTYUSE, ASSC0N3 

MNITIALIZE TTY DEVICE DATA BL0CK(CALLED FROM TTYATT TOO) 

lORM TaC,DEVMOD(DEVDAT) 

DPB LINE,PUNIT ;SET LINE NO. IN DDB 

MOVSI TAC, 646471 ;SIXBIT /TTY/ 

MOVEM TAC,DEVNAM(DEVDAT) 

MOVE TAC, [POINT 6, DEVNAM ( DEVDAT ) , 17] 



PUSH PDP,LINE 
TRNN LINE. 70 
JRST SCNIN0 
ROT LINE, -3 
ADDI LINE, 20 
IDPB LINE, TAC 
LSH LINE, 20 
ADDI LINE, 20 
IDPB LINE. TAC 
POP PDP.LINE 



.•SAVE LINE NO. 

;IS THERE A HIGH ORDER OCTAL DIGIT? 

;no 

JYES, CONVERT TO SIXBIT 



;STORE HIGH ORDER 
;IN PHYSICAL NAME 



SIXBIT DIGIT 



;STORE LOW ORDER DIGIT 



HRRM DEVDAT, TTYTAB(LINE) ;SET LINE N0. IN TRANSLATOR T 

MOVSI TAC, 436471 ;SIXBIT /CTY/ 

CAIN LINE.TCONLN MS THIS CONSOLE TTY? 

MOVEM TAC,DEVNAM(DEVDAT) ;YES, SET NAME TO CTY 

MOVE TAC,DEVNAM(DEVDAT) 

SKIPN DEVOPR ;IS THIS FIRST CHAR. TYPED BY 

MOVEM TAC, DEVOPR ;YES,SET THIS TTY AS OPERATOR 

JRST CPOPJl ;SUCCESSFUL RETURN 



ANYONE? 
TTY 



DATAI DCSA,LINE 



;get line no. from full duplex 



MOVEI TAC.FSNCHN 

CONO DCSA,4000(TAC) {RELEASE XMITTER SCANNER 



SKIPE DDB.TTYTAB(LINE) 

CAIL LINE.TCONLN ;LINE NO, 

JRST SCNRET 

LDB CHREC.PLASTC 

JRST INUSl 



;DATA BLOCK ASSIGNED? 
TOO LARGE? 
;G0 AWAY 
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000450 
000451 
000452 
000453 
000454 
000455 
000456 
000457 
000460 
000461 



000462 
000463 
000464 
000465 
000466 
000467 
000470 

000471 
000472 
000473 
000474 
000475 
000476 
000477 
000500 
000501 
000502 
000503 
000504 
000505 
000506 
000507 
000510 
000511 
000512 
000513 
000514 
000515 
000516 
000517 
000520 
000521 
000522 
000523 

000524 
000525 
000526 



306400 
254000 
201400 
302100 
254000 
712140 
254000 
730602 
730140 
254000 



730300 
306100 
254000 
730602 
730140 
137400 
254000 

200006 
135340 
550347 
135240 
135200 
135046 
603000 
254000 
607000 
254000 
312040 
254000 
260140 
254000 
306100 
254000 
730602 
730140 
137400 
202006 
137240 
137200 
254000 
200046 
607040 
260140 
254000 

712140 
202400 
254000 



000130 

000445' 

000130 

000444 

000457 

000010 

000451 

000000 

000010 

000456 



000700 
000453 
000471 
000000 
000010 
000002 
000461 

000002 

000111 

000000 

000000 

000001 

000262 

002000 

000533 

000020 

000575 

000010 

000527 

000771 

000520 

000463 

000524 

000000 

000010 

000002 

000002 

000000 

000001 

000470 

000004 

020000 

4 J 

000515 

000010 
000055 
000514 



04600 
04610 
04620 
04630 
04640 
04650 
04660 
04670 
04680 
04690 
04700 
04710 
04720 
04730 
04740 
04750 
04760 
04770 
04780 
04790 
04800 
04810 
04820 
04830 
04840 
04850 
04860 
04870 
04880 
04890 
04900 
04910 
04920 
04930 
04940 
04950 
04960 
04970 
04980 
04990 
05000 
05010 
05020 
05030 
05040 
05050 
05060 
05070 
05080 
05090 
05100 
05110 



TYPX: 



TYPXi: 



INUSE: 



INUSi: 



INUS2; 

INUS3: 

type: 

TYPi: 



LEAVE: 
LEAVl 



LEAV0 



CAIN CHREC'X" 
JRST SCNRET 
MOVEI CHREC'X" 
CAIE LINE.TCONLN 
JRST TYPXl 
DATAO TTY,CHREC 
JRST SCNRET 
CONO DCSB. (LINE) 
DATAO DCSA.CHREC 
JRST SCNRET 



CONSZ DCSA,700 
CAIN LINE.TCONLN 
JRST INUSI 
CONO DCSB, (LINE) 
DATAO DCSA,CHREC 
DPB CHREC.PLASTC 
JRST SCNRET 



MOVE I0S,0EVI0S(0DB) 

LDB PROG.PJOBN 

HRRZ PROG, JBTADR(PROG) 

LDB HPOS.PHPOS 

LDB VPOS,PVPOS 

LDB TAC. TTYPTR{DDB) 

TLNE lOS, SP 

SIM35 

lOS, TOUT 

INJEST 

TAC, CHREC 

ECHO 
POP, GCHAR 



;CHARACTER RECEIVED AN Xf 
;YES, GO AWAY 



;type an X 



;eull duplex? 



CTSER3: 



JRST 

TLNN 

JRST 

CAME 

JRST 

PUSHJ 

JRST LEAV0 

CAIN LINE.TCONLN 

JRST CTSER3 

CONO DCSB. (LINE) 

DATAO DCSA, CHREC 

DPB CHREC.PLASTC JSAVE 

MOVEM IDS, DEVIOS(DDB) 

DPB HPOS.PHPOS 

DPB VPOS,PVPOS 

JRST SCNRET 

MOVE TAC,DEVMOD(DEVDAT) 

TLNN TAC.TTYATC 

PUSHJ PDP.TTYKIL 

JRST LEAVl 

DATAO TTY, CHREC 
MOVEM CHREC, CCHAR 
JRST LEAVE 



CHARACTER FOR FULL DUPLEX 



; IS TTY ATTCHED? 
;N0. RETURN TO POOL 
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PI00527 
PI00530 
000531 
000532 

000533 
000534 
000535 
000536 
000537 
000540 
000541 
000542 
000543 
000544 

000545 
000546 
000547 
000550 
000551 
000552 
000553 
000554 
000555 
000556 



000557 
000560 
000561 

000562 
000563 
000564 

000565 
000566 
000567 
000570 
000571 

000572 
000573 
000574 



670000 001156' 

621000 000020 

201400 000177 

254000 000507' 



205040 
200241 
302405 
253040 
135240 
325040 
204041 
603040 
344241 
254001 



777766 

000545 ' 

000000 

000534 • 

000000* 

000527' 

000545 ' 

000140 

000000 

000000 



000557*000040 
000565*000012 
000572*000177 
000572*000134 
000735*000015 
000562'000136 
000766'000103 
000766*000117 
000566*000132 
000766*000125 



606240 000007 
254000 000566* 
254000 000507* 

135400 000003* 
660400 000100 
254000 000507' 

367200 000507' 
621000 002000 
607000 000020 
254000 000630' 
254000 000505' 

625000 002000 
640000 004000 
254000 000514* 



05120 
05130 
05140 
05150 
05160 

05170 
05180 
05190 
05200 
05210 
05220 
05230 
05240 
05250 
05260 
05270 
05280 
05290 
05300 
05310 
05320 
05330 
05340 
05350 
05360 
05370 
05380 
05390 
05400 
05410 
05420 
05430 
05440 
05450 
05460 
05470 
05480 
05490 
05500 
05510 
05520 
05530 
05540 
05550 
05560 
05570 



ECHO 



SIM35: 



SCTAB 



SCTABL: 



space: 



SIMVa: 



SIMLF: 
SIM4: 



TOO lOS.CXWD SP, ECHOED 
TL2 lOS.TOUT 
MOVEI CHREC.177 
JRST TYPE 

MOVSI tac-sctabl 

MOVE HPOS, SCTAB(TAC) 

CAIE CHREC, (HPOS) 

AOBJN TAC. .-2 

LDB HPOS.PHPOS 

JUMPGE TAC, ECHO 

MOVS TAC, SCTABCTAC) 

TLNE TAC, 140 ;SPACING 

AOJA HPOS, (TAC) ;YES 

JRST (TAC) ;N0 



;SEND A RUBOUT AFTER ECHO CHE 



CHARACTER 



XWD 
XWD 
XWD 
XWD 
XWD 
XWD 
XWD 
XWD 
XWD 
XWD 
.-SCTAB 



SPACE," " 
SIMLF, 12 
SIMR0,177 
SIMR0,134 
ASC3,15 
SIMVA, "t" 

0ELET1,"C" 
0ELET1,"0" 
SIM4,"Z" 
DELET1,"U'* 



SIMRO: 
M0D35: 



TRNN HPOS, 7 
JRST SIM4 
JRST TYPE 

LDB CHREC, PSCHAR 
TRO CHREC. 100 
JRST TYPE 

SOJG VPOS,TYPE 
TLZ lOS.SP 
TLNN IOS,TOUT 
JRST INJ4 
JRST INUS3 

TLZA lOS, SP 
TRC I0S,T35 
JRST LEAVE 



JRUBOUT 
;BACK SLASH 
;CR 



;FINISHE0 SIMULATING TABS(8) 

;yes 

;N0, SEND ANOTHER SPACE 



JSEND ANOTHER LINE-FEED 
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05580 


000575 


306400 


000003 


05590 


000576 


254000 


000644' 


05600 


000577 


623000 


000004 


05610 


000600 


260140 


000632' 


05620 


000601 


603000 


100000 


05630 


000602 


661000 


040040 


05640 


000603 


306400 


000017 


05650 


000604 


254000 


000657' 


05660 


000605 


622000 


100000 


05670 


000606 


254000 


000677' 


05680 


000607 


602000 


040000 


05690 


000610 


254000 


000514 ' 


05700 


000611 


302400 


000033 


05710 


000612 


306400 


000176 


05720 


000613 


201400 


000175 


05730 


000614 


306400 


000020 


05740 


000615 


254000 


000573' 


05750 


000616 


603000 


100000 


05760 


000617 


254000 


000622' 


05770 


000620 


306400 


000177 


05780 


000621 


254000 


000752' 


05790 


000622 


136406 


000476' 


05800 


000623 


370046 


000257' 


05810 


000624 


301400 


000040 


05820 


000625 


303400 


000137 


05830 


000626 


254000 


000701 ' 


05840 


000627 


271240 


000001 


05850 


000630 


260140 


001064' 


05860 


000631 


254000 


000514 • 


05870 
05880 


000632 


541046 


000260' 


05890 


000633 


505040 


440700 


05900 


000634 


202046 


000622' 


05910 


000635 


507000 


000001 


05920 


000636 


350000 


000001 


05930 


000637 


402006 


000632' 


05940 


000640 


251046 


000000 


05950 


000641 


201040 


000111 


05960 


000642 


202046 


000623' 


05970 


000643 


263140 


000000 


05980 
05990 



;CONTROL C? 

JIF FIRST CHARACTER IN, INITIALIZE 

;l DDT CHAR RESTARTS PROGRAM 
JYES, TERMINATE BUFFER 

;CONTROL 0? 

JYES, FLUSH OUTPUT 

;ECH0 HAS 

;YES, NOW 



JNEW NEW ALT-MODE? 
JNEW ALT-MODE? 
;CHANGE TO OLD 
;CONTROL P TAB 
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INJEST: CAIN CHREC,3 

JRST INJ5 

TL2E IOS,IOFST 

PUSHJ PDP,SETMB1 

TLNE IOS,DDTM 

TLO lOS.SYNC+IOEND 

CAIN CHREC,17 

JRST INJ6 

TREE lOS.ECHOF 

JRST INJ7 

TRNE IOS,NCERR 

JRST LEAVE 

CAIE CHREC,033 

CAIN CHREC,176 

MOVEI CHREC,175 

CAIN CHREC,20 

JRST M0n35 

TLNE IOS,DDTM 

JRST INJ25 

CAIN CHREC,177 

JRST DELET 
INJ25: DPBI CHREC, TTYPTR(DDB) 

SOS TAC, TTYCTR(DDB) 

CAIL CHREC, 40 

CAILE CHREC, 137 

JRST SPCIN 

ADD! HP0S,1 
INJ4: PUSHJ POP, MOVBUF 

JRST LEAVE 

SETMBi: HRRI TAC, TTYRUF(DDB) 
HRLI TAC, 440700 
MOVEM TAC, TTYPTR<DDB) 
HRLS TAC 
AOS TAC 

SETZM TTYBUF(DDB) 

BLT TAC,TTYBFF(DDB) JCLEAR OUT MONITOR BUFFER 
MOVEI TAG, 111 
MOVEM TAC. TTYCTR(DDB) 
POPJ POP, 



OCCURRED? 
RESUME OUTPUT 



SEND RUBOUTS 
RUBOUT 



SIMULATION FLIP FLOP SWI 



ON TO DDT 
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06000 








06010 


00644 


260140 


000632' 


06020 


000645 


261140 


000004 


06030 


000646 


135200 


000004' 


06040 


000647 


332000 


000004 


06050 


000650 


260140 


000000 


06060 


000651 


262140 


000004 


06070 


000652 


607000 


001000 


06080 


000653 


202006 


000063' 


06090 


000654 


200000 


001153' 


06100 


000655 


201040 


000103 


06110 


000656 


254000 


000674' 


06120 
06130 


000657 


261140 


000002 


06140 


000660 


623000 


000001 


06150 


000661 


260140 


000000 


06160 


000662 


262140 


000002 


06170 


000663 


603000 


101000 


06180 


000664 


254000 


000667' 


06190 


000665 


603000 


000020 


06200 


000666 


260140 


000000 


06210 


000667 


665000 


000004 


06220 


000670 


254 00 


000666' 


06230 


000671 


620000 


100000 


06240 


000672 


660000 


020000 


06250 


000673 


201040 


000117 


06260 


000674 


137040 


000003' 


06270 


000675 


201400 


000136 


06280 


000676 


254000 


000745' 


06290 
06300 


000677 


661000 


000020 


06310 


000700 


254000 


000505' 


06320 



INJ5: 



INJ6: 



INJ6A 



INJ61 



INJ7; 



PUSHJ PDP.SETMBl 

PUSH POP, ITEM 

LOB ITEM.TPCJOBN 

SKIPE ITEM 

PUSHJ PDP.STOPl 

POP POP, ITEM 

TLNN IOS,TPMON 

MOVEM IOS,TTYSAV(DOB) 

MOVE IOS,CXWD TPMON+IOFST 

MOVE I TAC'C" 

JRST INJ61 



tC 
YES. 



SAVE 



GET USER CONSOLE NUMBER 



;SHUT OFF JOB 



STATUS OF 
;WHEN 
I0ACT3 



TTY 
IT WAS 



IN USER MODE 



PUSH PDP,TAC1 
TLZE lOS.IOW 
PUSHJ PDP.SETIOD 
POP PDP.TACl 
TLNE IOS,TPMON+DDTM 
JRST INJ6A 
TLNE IOS,TOUT 
PUSHJ PDP.ADVBFE 
TLOA IOS,IOFST 
JRST .-2 
TRZ lOS.ECHOF 
TRO IOS,IODEND 
MOVEI TAC'O" 
OPB TACPSCHAR 
MOVEI CHREC't" 
JRST SPC21 

TLO lOS.TOUT 
JRST INUS3 



;to 
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PI00701 
000702 
000703 
000704 
000705 
000706 

000710 

000711 
000712 
000713 
000714 
000715 
000716 
000717 
000720 



000721 
000722 

000723 
000724 
000725 
000726 
000727 
000730 
000731 
000732 
000733 
000734 
000735 
000736 

000737 
000740 
000741 

000742 
000743 
000744 
000745 
000746 

000747 
000750 
000751 



205040 
200101 
302402 
253040 
544040 
135100 
321041 
254000 



777770 

000711 ' 

000000 

000702' 

000002 

000412' 

000000 

000630' 



000721'000015 
000727'000012 
000742'000011 
000724*000013 
000723'000014 
000737'000025 
000747'000032 
000727'000175 



201240 
254000 



000000 
000735' 



334200 001157' 
201200 000004 
607000 004000 
661000 002000 
135040 000000 
607000 001000 
306040 000001 
661000 040000 
607000 002000 
254000 000630' 
201400 000012 
254000 000507' 

260140 000632' 
201040 000125 
254000 000674' 

602000 004000 

254000 000514' 

201400 000040 

661000 002000 

254000 000507' 

661000 042040 
201040 000132 
254000 000674' 



06330 
06340 
06350 
06360 
06370 
06380 
06390 
06400 
06410 
06420 
06430 
06440 
06450 
06460 
06470 
06480 
06490 
06500 
06510 
06520 
06530 
06540 
06550 
06560 
06570 
06580 
06590 
06600 
06610 
06620 
06630 
06640 
06650 
06660 
06670 
06680 
06690 
06700 
06710 
06720 
06730 
06740 
06750 
06760 
06770 
06780 
06790 
06800 
06810 



SPCIN 



MOVSI TAC.-SCITL JSEARCH 
MOVE TAC1,SCITAB(TAC) 



FOR SPECIAL INPUT CHAR 



CAIE CHREC, (TACl) 
AOBJN TAC, .-2 
HLR TAC, TACl 
LDB LINE,PUNIT 
JUMPL TAC, (TAC) 
JRST INJ4 



SCITAB 



XWD 
XWD 
XWD 
XWD 
XWD 
XWD 
XWD 
XWD 
SCITL=. -SCITAB 



SPCCR,15 
ASCI, 12 
SPC2,11 
SPVT,13 
SPFF,14 
SPC4A.25 
SPC7,32 
ASCI, 175 



SPCCR: 



SPFF: 
SPVT: 



ASCI 



ASC2 



ASC3 



SPC4a: 



SPC2: 



SPC21 



SPC7: 



;found? 

;no 

;save dispatch 

;REST0RE TACl 



ADDRESS 



{CHARACTER NOT FOUND 



TAB 



JCR 

;lf 

JHORIZ 

;VT 
;ff 
;tu 

JALT MODE 



MOVEI HPOS,0 
JRST ASC3 

SKIPA VPOS,C103 
MOVEI VP0S,4 
TLNN I0S,T35 
TLO IOS,SP 
LDB TACPIOMOn 
TLNN lOS.TPMON 
CAIN TACAL 
TLO IOS,SYNC 
TLNN lOS.SP 
JRST INJ4 
MOVEI CHREC, 12 
JRST TYPE 

PUSHJ PDP,SETMBl 
MOVEI TAC'U" 
JRST INJ61 

TRNE I0S,T35 
JRST LEAVE 
MOVEI CHREC," " 
TLO IOS,SP 
JRST TYPE 

TLO IOS,SYNC+IOEND+SP 
MOVEI TAC'Z" 



DONT SIMULATE FOR A MOD 35 



LINE FEED 



tZ 



JRST INJ61 



JECHO tZ 
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06820 










06830 










06840 




000752 


200046 


000642' 


06850 


DELET: 


M00753 


301040 


000111 


06860 




000754 


254000 


000766' 


06870 
06880 




000755 


205040 


070000 


06890 




000756 


270046 


000634' 


06900 




000757 


603040 


400000 


06910 




000760 


270040 


001160' 


06920 




000761 


202046 


000756' 


06930 




000762 


350006 


000752' 


06940 
06950 




000763 


201400 


000334 


06960 




000764 


661000 


002000 


06970 


DELET2 


000765 


254000 


000507' 


06980 
06990 




000766 


201200 


000001 


07000 


DELETl 


000767 


201400 


000015 


07010 




000770 


254000 


000764' 


07020 





MOVE TaC,TTYCTR(DDB) 
CAIL TAG, 111 
JRST DELETl 

MOVSI TaC. 070000 

ADD TAC,TTYPTR(DDB) 

TLNE TAC, 400000 

ADD TAC.CXWD 347777,-1] 

MOVEM TAC,TTYPTR(DDB) 

AOS TTYCTR(DDP) 

MOVEI CHREC,334 
TLO lOS.SP 
JRST TYPE 

MOVEI VP0S,1 
MOVEI CHREC,15 
JRST DELET2 



;BACK SLASH 
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B00772 
000773 

m^ii5 

P!01000 
001001 
00100? 
001003 
001004 
001005 
001006 
001007 
001010 
001011 
001012 
001013 
001014 
001015 
001016 
001017 
001020 
001021 
001022 

001023 
001024 
001025 
001026 
001027 
001030 
001031 
001032 
001033 
001034 
001035 
001036 
001037 
001040 
001041 
001042 
001043 
001044 
001045 
001046 
001047 
001050 
001051 



627000 
254000 
550046 
270040 

202046 
550060 
221040 
202046 
375006 
254000 
134406 
322400 
306400 
254000 
306400 
344200 
302400 
306400 
254000 
271240 
306400 
201240 
354003 
200006 
202006 
263140 

607000 
254000 
261140 
623000 
260140 
262140 
607000 
260140 
665000 
254000 
630000 
627000 
254000 
621000 
135100 
261140 
135200 
260140 
262140 
626000 
254000 
205000 
254000 



000004 

001001 ' 
00001P1 

001161' 
000761' 

000001 

000005 
000762' 

001000' 

001025' 

000775' 

001023' 

000011 

001052' 

000012 

001017' 

000013 

000014 

001057' 

000001 

000015 

000000 

000000 

000653' 

00000? 

000000 

100000 
001001 ' 

000002 

000001 

000661 ' 

00000? 

101000 

000666 ' 

000004 

000773' 

001162' 

000100 

001021' 

001000 

000706' 

000004 

000004' 

000000 

000004 

020000 

001020' 

001004 

001021' 



07030 
07040 
07050 
07060 
07070 
07080 
07090 
07100 
07110 
07120 
07130 
07140 
07150 
07160 
07170 
07180 
07190 
07200 
07210 
07220 
07230 
07240 
07250 
07260 
07270 
07280 
07290 
07300 
07310 
07320 
07330 
07340 
07350 
07360 
07370 
07380 
07390 
07400 
07410 
07420 
07430 
07440 
07450 
07460 
07470 
07480 
07490 
07500 
07510 
07520 
07530 
07540 
07550 
07560 
07570 
07580 
07590 



ROUTINE 
call: 



TO GET NEXT CHARACTER 
PUSHJ PDP.GCHAR 
NO MORE LEFT 
RETURN WITH CHAR. IN 



FROM OUTPUT BUFFER 



CHREC 



GCHAR: 
GCHARi: 



GCHAR3: 



GCH3: 

GCH3A: 

GCHAR4: 



GCHAR7: 
GCHAR5: 



TLZN lOS, lOFST 

JRST GCHAR3 

HRR2 TAC,DEVOAD(DDB) 

ADD TAG, CXWD 000700+PROG. 1 ] 

MOVEM TAC, TTYPTR(DDB) 

HRRZ TAC. e>TAC 

IMULI TAC, 5 

MOVEM TAC,TTYCTR(DD8) 

SOSGE TTYCTR(nDB) 

JRST GCHAR5 

LDBI CHREC, TTYPTR(DDB) 

JUMPE CHREC, GCHAR7 

CAIN CHREC, 11 

JRST HT 

CAIN CHREC, 12 

AOJA VP0S,GCH3 

CAIE CHREC, 13 

CAIN CHREC, 14 

JRST VTFF 

ADOI HPOS.l 

CAIN CHREC, 15 

MOVEI HPOS,0 

AOSA (POP) 

MOVE IOS,TTYSAV(DDB) 

MOVEM lOS, DEVIOS(DDB) 

POPJ POP, 



iRESTORE STATUS TO USER 



TLNN IOS,DDTM 

JRST GCHAR3 

PUSH PDP,TAC1 

TLZE lOS, lOW 

PUSHJ POP, SETIOD 

POP PDP,TAC1 

TLNN IOS,TPMON+DDTM 

PUSHJ POP, ADVBFE 

TLOA IOS,IOFST 

JRST GCHARI 

TDZ IOS,CXWD I0,I0ACT3 

TLZN IOS,USRB 

JRST GCHAR4 

TLZ IOS,TPMON 

LDB LINE,PUNIT 

PUSH PDP, ITEM 

LDB ITEM,TPCJOBN 

PUSHJ PDP,SETRUN 

POP POP, ITEM 

TRZN IOS,USRBC 

JRST GCH3A 

MOVSI IOS,TPMON+IOFST 

JRST GCHAR4 



DDT BUFFER TERMINATED WITH NULL 



;GET LINE NO. 



001052 
001053 
001054 

001055 
001056 

001057 
001060 
001061 
001062 
001063 







07600 




602000 


004000 


07610 


HT: 


344240 


001017' 


07620 




661000 


002000 


07630 




201400 


000240 


07640 


SPOUT 


254000 


001017' 


07650 
07660 




6020PI0 


004000 


07670 


VTFF: 


344200 


001017' 


07680 




201400 


000012 


07690 




661000 


002000 


07700 




254000 


001017' 


07710 





TRNE I0S,T35 
AOJA HP0S,GCH3 
TLO lOS.SP 
MOVEI CHREC.240 
JRST GCH3 

TRNE I0S,T35 
AOJA VP0S,GCH3 
MOVEI CHREC,12 
TLO lOS.SP 
JRST GCH3 



SCNSFR - SCANNER SERVICE 



TOM EGGERS 


8-9- 


-65 










07720 




001064 


603000 


100000 


07730 


MOVBUF 


001065 


254000 


001125' 


07740 




001066 


627000 


040000 


07750 




001067 


337006 


001001' 


07760 




001070 


254000 


001072' 


07770 




001071 


254000 


001133' 


07780 




001072 


603000 


001000 


07790 




001073 


254000 


001135' 


07800 




001074 


200046 


000007 


07810 




001075 


602040 


777777 


07820 




001076 


335020 


000001 


07830 




001077 


254000 


001132' 


07840 




001100 


261140 


000002 


07850 




C^01101 


200046 


001003 ' 


07860 




001102 


260140 


000253' 


07870 




001103 


200046 


000007 


07880 




001104 


260140 


000000 


07890 




001105 


551041 


000000 


07900 
07910 




001106 


201066 


000007 


07920 




001107 


271040 


000002 


07930 




001110 


540400 


000001 


07940 




001111 


271040 


000000 


07950 




001112 


505406 


000637' 


07960 




001113 


251401 


777777 


07970 
07980 




001114 


201040 


000111 


07990 




001115 


274046 


001067' 


08000 




001116 


271040 


000004 


08010 




001117 


231040 


000005 


08020 




001120 


201426 


000007 


08030 




001121 


202050 


000001 


08040 




001122 


260140 


000000 


08050 




001123 


254000 


001124' 


08060 




001124 


665000 


000004 


08070 




001125 


261140 


000002 


08080 


M0V3: 


001126 


623000 


000001 


08090 




001127 


260140 


001027' 


08100 




001130 


262140 


000002 


08110 




001131 


624000 


050000 


08120 




001132 


660000 


040000 


08130 


mis: 


001133 


202006 


000002 


08140 


MISi: 


001134 


263140 


000000 


08150 




001135 


205040 


400000 


08160 


MOVMON 


001136 


436042 


000443' 


08170 




001137 


661000 


000004 


08180 




001140 


201040 


000015 


08190 




001141 


137046 


001101' 


08200 




001142 


350000 


000000 


08210 




001143 


263140 


000000 


08220 
08230 




001144 


030000 


600000 


08240 




001145 


000100 


020000 






001146 


120020 


010000 






001147 


001020 


010000 






001150 


020004 


140000 
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TLNE IOS,DDTM 

JRST M0V3 ;D0NT 

TLZN lOS.SYNC 

SKIPG TTYCTR(D08) 

JRST .+2 

JRST MISl 

TLNE IDS. TPMON 

JRST MOVMON 

MOVE TAC,DEVIAD(DDB) 

TRNE TAC-l 

SKIPGE e)TAC 

JRST MIS ;no 

PUSH PDP.TACl 

MOVE TACTTYPTRCDDB) 

PUSHJ PDP.CLRBYT 

MOVE TAC,DEVIAD(DDB) 

PUSHJ PDP.ADRCK ;MAKE 

HRRZI TACSTTYBKTAC) 

MOVEI TAC.<i»DEVIAD(DDB) 

ADD! TAC,2 

HRR CHRECTAC 

ADDI TACSTTYBF 

HRLI CHREC,TTYBUF(DDB) 

BLT CHREC-l (TAC) 

MOVEI TAC. Ill 

SUB TAC, TTYCTR(DDB) 

ADDI TAC, 4 

IDIVI TAC, 5 

MOVEI CHREC,9nEVlAD(D0B) 

MOVEM TACKCHREC) 

PUSHJ POP. ADVBFF 

JRST .+1 

TLOA IOS,IOFST 

PUSH PDP,TAC1 

TLZE lOS, lOW 

PUSHJ POP, SETIOD 

POP PDP.TACl 

TRZA IOS,NCERR+IOACT 

TRO lOS. NCERR 

MOVEM lOS, DEVIOS(DDB) 

POPJ POP, 

MOVSI TAC, 400000 

lORM TACTTYTABdINE) 

TLO lOS.IOFST 

MOVEI TAC. 15 

DPB TAC,TTYPTR(DDB) ;FORCE 

AOS COMCNT 

POPJ POP, 

END, 



ADVANCE BUFFERS FOR DDT MODE 



;IS TTY EXPECTING INPUT? 
;0R IS NEXT BUFFER READY? 



SURE BUFFER WILL FIT 

;length+i 



;SET BIT FOR MONITOR 



A CARRIAGE RET INTO MONITOR COMM 



001151 
P101152 
001153 
001154 
001155 
001156 
001157 
001160 
001161 
001162 



001000 
000024 
001004 
010000 
220606 
002000 
000000 
347777 
000707 
000020 



140000 
010000 
010000 
400000 

000000 

100000 
000010 
777777 
000001 
010000 



THERE ARE NO ERRORS 
PROGRAM BREAK IS 001163 
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A 

ACl 

AC2 

AC3 

ADRCK 

ADVBFE 

ADVBFF 

AL 

ASCI 

ASC2 

ASC3 

ASSCON 

ASSPRG 

B 

RUFPNT 

BUFWRO 

CCHAR 

CHREC 

CLDS 

CLFN 

CLOSB 

CLRBYT 

CLSIN 

CLSOUT 

CO-HCNT 

CPOPJ 

CPOPJl 

CTSER3 

CTYINT 

CTYOUl 

CTYOUT 

CTYRUB 

n 

DAT 

DCHAR 

nCL 

DCW 

DDR 

DDRSRC 

DDI 

DDO 

DDTGT 

DDTGT2 

DDTIN 

DDTIN2 

DDTIN3 

DDTM 

DDTMFM 

DDTOUT 

DDTRL 

DDTSYM 

DELET 

DELETl 

nELET2 

DEN 



0000PI0 


INT 


000015 


INT 


000016 


INT 


000017 


INT 


001104' 


EXT 


001032' 


EXT 


001122' 


FXT 


000001 


INT 


000727' 




000733' 




000735' 




400000 


INT 


200000 


INT 


000014 


INT 


000012 


INT 


000013 


INT 


000055' 




000010 




000312' 


FXT 


000322' 


EXT 


002000 


INT 


001102* 


EXT 


000002 


INT 


000001 


TNT 


001142' 


EXT 


000406' 


EXT 


000437' 


FXT 


000524' 




000332' 


INT 


000347' 




000325' 




000346' 




000017 


INT 


000005 


INT 


000177 




000001 


INT 


020000 


INT 


000006 




000400' 




000007 


INT 


000006 


INT 


000133' 


TNT 


000141' 




000153' 


INT 


000157' 




000166' 




100000 




000037 


INT 


000206' 


INT 


000144' 


INT 


000036 


INT 


000752' 




000766' 




000764 ' 




000004 


INT 
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nETH 

DEVAOR 

OEVBUF 

OEVCHR 

OEVCTR 

DEVDAT 

DEVI AD 

DEVIOS 

OEVLOG 

DEVLST 

DEVMOD 

DEVNAM 

DEVOAD 

DEVOPR 

DEVPHY 

DEVPTR 

DEVSER 

OGF 

DIN 

DLK 

DOU 

OR 

DRL 

DSI 

OSO 

DTW 

DVAVAL 

DVCDR 

DVniR 

nVDIRI 

DVIN 

DVLPT 

DVMTA 

nvouT 

DVTTY 

ECHO 

ECHOF 

ENTRB 

FSNCHN 

GCH3 

GCH3A 

GCHAR 

GCHARl 

GCHAR3 

GCHAR4 

GCHAR5 

GCHAR7 

HPOS 

HT 

I 

IB 

IBUFB 

INITB 

INJ25 

INJ4 



010000 




000007 


INT 


000006 


TNT 


000001 


INT 


000011 


INT 


000006 


INT 


000007 


INT 


000002 


INT 


000005 


INT 


000000 


FXT 


000004 


TNT 


17100000 


INT 


00 010 


INT 


000436* 


FXT 


000242' 


FXT 


000010 


INT 


000003 


INT 


000012 


INT 


000003 


INT 


000005 


INT 


000002 


INT 


000016 


INT 


00000 


INT 


000011 


INT 


000010 


TNT 


040000 


INT 


0000 40 


INT 


100000 


INT 


000004 


INT 


400000 


INT 


000002 


INT 


040000 


INT 


000020 


INT 


000001 


INT 


000010 


INT 


000527* 




100000 




020000 


TNT 


000441' 


FXT 


001017' 




001020' 




000771* 




000773' 




001001' 




001021' 




001025' 




001023* 




000005 




001052' 




000010 


INT 


000013 


INT 


200000 


INT 


400000 


INT 


000622' 




000630' 
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INJ5 

INJ6 

INJ61 

INJ6A 

1NJ7 

INJEST 

INPB 

INUSl 

INUS2 

1NUS3 

INUSE 

10 

lOACT 

lOBEG 

lORKTL 

lOCON 

lODENO 

lODERR 

lODISC 

lOnONE 

lODTER 

lOFND 

lOEST 

lOIMPM 

lONRCK 

lORDEL 

lORET 

lOS 

lOSTRT 

lOUSE 

lOW 

lOWC 

lOWS 

ITEM 

JBEADR 

JBFCTR 

JBFPTR 

JBTADR 

J8UE 

JDAT 

JERR 

JIOW 

JNA 

JOB 

LEAV0 

LEAVl 

LEAVE 

LINE 

LOOKB 

MIS 

MISl 

MLTTYL 

M0D35 

M0V3 

MOVBUF 



£7100644' 
000657* 
000674' 
000667' 
000677' 
000575' 

010000 

000471' 
000501' 
000505' 

000462' 
000020 

010000 

000002 
040000 
000040 
020000 
200000 
400000 
400000 
100000 
000040 
000004 
400000 
000100 
000100 
000020 
000000 

000010 
400000 

00 001 

000020 
400000 
000004 

00 000 

000002 

000001 

000473' 

000005 

000011 

002000 

100000 

004000 

000243' 

000520' 

000515' 

000514' 

000002 

040000 

001132' 

001133' 

000400' 

000573' 

001125' 

001064' 



INT 



INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
EXT 
INT 
INT 
INT 
INT 
INT 
EXT 



INT 



EXT 
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MOVMON 

MTTYLN 

MTW 

NCERR 

NIO 

OBUFB 

OUT 

OUTPB 

POP 

PHPOS 

PICHN 

PIOEE 

PIOMOD 

PION 

PJOBN 

PLASTC 

PROG 

PSCHAR 

PUNIT 

PUUOAC 

PVPOS 

RUN 

RUNABL 

SCITAB 

SCITL 

SCNl 

SCN2 

SCMCHL 

SCNCHN 

SCNIN 

SCNIN0 

SCNINl 

SCNINI 

SCNINT 

SCNRET 

SCNSAV 

SCTAB 

SCTABL 

SETIOD 

SETMBl 

SETRUN 

SIM35 

SIM4 

SIMLE 

SIMRO 

SIMVA 

SP 

SPACE 

SPC2 

SPC21 

SPC4A 

SPC7 

SPCCR 

SPCIN 

SPEE 



(^01135' 

00C1232' 

010000 

040000 

020000 

100000 

000272' 

004000 

000003 

000000' 

000100 

000400 

000727' 

000200 

00W472' 

000002' 

000007 

000003' 

001041' 

000214' 

000001' 

200000 

204000 

000711 • 

000010 

000024 ' 

000035' 

000345' 

000350' 

000411 ' 

000425' 

000440' 

000005' 

000355' 

000517' 

000357' 

000545' 

000012 

001127' 

000632' 

001044' 

000533' 

000566' 

000565' 

000572' 

000562' 

002000 

000557' 

000742' 

000745' 

000737' 

000747' 

000721' 

000701' 

000723' 



EXT 
INT 



INT 
EXT 
INT 
INT 

INT 

EXT 

EXT 

INT 

EXT 
EXT 

INT 

INT 



EXT 
EXT 



INT 
INT 
EXT 
EXT 



EXT 



EXT 



SCMSER - SCANNER SERVICE 
SYMROL TABLE 



PAGE 25 



SPOUT 

SPVT 

STOPl 

STTYBl 

STTYBE 

SYNC 

T35 

TAC 

TACl 

TCOMM 

TCONLN 

TEM 

TOUT 

TPCJOB 

TPMON 

TSCNLN 

TTY0DB 

TTYAT2 

TTYAT3 

TTYAT4 

TTYATC 

TTYATT 

TTYBEE 

TTYBMl 

TTYBUE 

TTYCOM 

TTYCTR 

TTYDAT 

TTYDET 

TTYDSP 

TTYDTl 

TTYE0 

TTYFND 

TTYFNU 

TTYJ08 

TTYKIL 

TTYLST 

TTYOU0 

TTYOUl 

TTY0U2 

TTYOUT 

TTYPTR 

TTYSAV 

TTYSET 

TTYSRl 

TTYSRC 

TTYSTR 

TTYTAB 

TTYURC 

TTYUSE 

TTYUSR 

TYPl 

TYPE 

TYPX 

TYPXl 



001.055' 




000724' 




000650' 


EXT 


001105' 


EXT 


001111' 


EXT 


040000 




004000 




000001 


INT 


000002 


INT 


000364' 




000507 ' 


EXT 


000010 


INT 


000020 




000004 • 




001000 




000000 


EXT 


00 00 


EXT 


000070' 




000110' 




000115' 




020000 


INT 


000065' 


INT 


000640' 


EXT 


000254' 


EXT 


001112* 


EXT 


000117' 


INT 


001115' 


EXT 


000247' 




000046' 


TNT 


000271' 


INT 


000052' 




000240' 




000244' 


INT 


000243' 


INT 


000130' 


INT 


000041 ' 


INT 


000401 ' 


EXT 


000303' 




000322' 




000311' 




000301 ' 




001141' 


EXT 


001020' 


EXT 


000062' 


INT 


000231' 




000232' 




000252 • 


INT 


001136' 


EXT 


000056' 


INT 


010000 


INT 


000057' 


INT 


000511' 




000507' 




000450' 




000457' 





scMSER - ; 


sCANNFR 


SP'RVICE 




SYMROL 


TARLF 






USRB 




000100 




USRBC 




020000 




USRMOD 




010000 


INT 


UUO 




000014 


INT 


UXIT 




000230' 


FXT 


VPOS 




000004 




VTFF 




001037' 




WAITl 




000211' 


FXT 


WSYNC 




000164' 


FXT 
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